home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / antmenu.rpl < prev    next >
Text File  |  1991-09-09  |  1KB  |  44 lines
  1. %%HP:T(1);
  2. @ ANTMENU by Joseph Horn
  3. "
  4. 47A20         @ {
  5. 47A20         @   {
  6.  
  7. E1B20         @     GROB            * Bink the Ant (menu icon)
  8. F3000         @       63 nibs long
  9. 80000         @       8 dot rows
  10. 51000         @       21 columns
  11. 000220        @       row 1
  12. 870410        @       row 2
  13. CEEC10        @       row 3
  14. 4FF730        @       row 4
  15. CFFF30        @       row 5
  16. 87DD10        @       row 6
  17. 49A200        @       row 7
  18. 49A200        @       row 8
  19.  
  20. D9D20         @     ::              * menu program
  21.  
  22. CCD20         @       DOCODE        * Jan Brittenson's BOFF code
  23. A1000         @         26 nibs long
  24. 8F B9760      @         GOSBVL =SAVPTR
  25. 8F 95324      @         GOSBVL #42359  * turns off busy annunciator
  26. 8D 34150      @         GOVLNG =GETPTRLOOP
  27.  
  28. 9FF30         @       ONE
  29. 55735         @       ClrUserFlag   *  # -->, Clears user flag
  30. 29E20 8C3 E00 @       XLIB 968 14   *  game string
  31. 29E20 8C3 100 @       SCHIP         *  play, then set flag 1 if user wins
  32.  
  33. 9FF30         @       ONE
  34. 87735         @       TestUserFlag  *  # --> T/F
  35. CB916         @       IT            *  if T then DO else SKIP
  36. 29E20 8C3 F00 @         XLIB 968 15 *  winning screen
  37.  
  38. 9FF30         @       ONE
  39. 55735         @       ClrUserFlag   *  # -->, Clears user flag
  40. 44193         @       ClrDAsOK      *  Redraw the entire LCD when program ends
  41. B2130         @     ;
  42. B2130         @   }
  43. B2130         @ }
  44. "